home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 11 / PC World Interactive 11.iso / share / multimed / mpg / mpg.exe / 0 / RCDATA / TFRMENCODE / TFRMENCODE.txt
Encoding:
Text File  |  1998-02-24  |  9.9 KB  |  463 lines
  1. object frmEncode: TfrmEncode
  2.   Left = 282
  3.   Top = 308
  4.   AutoScroll = False
  5.   Caption = 'mpeg Encoder v0.07a - by SoloH'
  6.   ClientHeight = 446
  7.   ClientWidth = 633
  8.   Color = cl3DLight
  9.   Font.Charset = DEFAULT_CHARSET
  10.   Font.Color = clNavy
  11.   Font.Height = -11
  12.   Font.Name = 'Verdana'
  13.   Font.Style = []
  14.   PopupMenu = pmnuMain
  15.   Position = poScreenCenter
  16.   ShowHint = True
  17.   OnKeyDown = FormKeyDown
  18.   OnResize = FormResize
  19.   OnShow = FormShow
  20.   PixelsPerInch = 96
  21.   TextHeight = 13
  22.   object pbarEncoded: TProgressBar
  23.     Left = 0
  24.     Top = 418
  25.     Width = 633
  26.     Height = 9
  27.     Align = alBottom
  28.     Min = 0
  29.     Max = 100
  30.     Step = 1
  31.     TabOrder = 0
  32.   end
  33.   object sbMpeg: TStatusBar
  34.     Left = 0
  35.     Top = 427
  36.     Width = 633
  37.     Height = 19
  38.     Panels = <>
  39.     SimplePanel = True
  40.     SimpleText = 
  41.       'Check for the latest version or update at http://www.isafeelin.o' +
  42.       'rg/soloh/mpegEnc.html'
  43.   end
  44.   object pnlRight: TPanel
  45.     Left = 408
  46.     Top = 0
  47.     Width = 225
  48.     Height = 385
  49.     BevelInner = bvLowered
  50.     BevelOuter = bvLowered
  51.     TabOrder = 2
  52.     OnResize = pnlRightResize
  53.     object lblRight: TLabel
  54.       Left = 8
  55.       Top = 240
  56.       Width = 209
  57.       Height = 41
  58.       Cursor = crCross
  59.       Hint = 'Try dragging me...'
  60.       Alignment = taCenter
  61.       AutoSize = False
  62.       Caption = 'TARGET'
  63.       Font.Charset = DEFAULT_CHARSET
  64.       Font.Color = clNavy
  65.       Font.Height = -32
  66.       Font.Name = 'Verdana'
  67.       Font.Style = [fsBold]
  68.       ParentFont = False
  69.       Transparent = True
  70.       OnMouseDown = lblMouseDown
  71.       OnMouseMove = lblRightMouseMove
  72.       OnMouseUp = lblMouseUp
  73.     end
  74.     object lblTargetMask: TLabel
  75.       Left = 8
  76.       Top = 8
  77.       Width = 34
  78.       Height = 13
  79.       Caption = 'Mask:'
  80.     end
  81.     object dirTarget: TDirectoryListBox
  82.       Left = 8
  83.       Top = 280
  84.       Width = 209
  85.       Height = 97
  86.       Hint = 'Select target directory'
  87.       FileList = flbTarget
  88.       Font.Charset = DEFAULT_CHARSET
  89.       Font.Color = clWindowText
  90.       Font.Height = -11
  91.       Font.Name = 'Verdana'
  92.       Font.Style = []
  93.       ItemHeight = 16
  94.       ParentFont = False
  95.       TabOrder = 0
  96.       OnKeyDown = FormKeyDown
  97.     end
  98.     object flbTarget: TFileListBox
  99.       Left = 8
  100.       Top = 40
  101.       Width = 209
  102.       Height = 201
  103.       Font.Charset = DEFAULT_CHARSET
  104.       Font.Color = clWindowText
  105.       Font.Height = -11
  106.       Font.Name = 'Verdana'
  107.       Font.Style = []
  108.       ItemHeight = 13
  109.       ParentFont = False
  110.       TabOrder = 1
  111.       OnKeyDown = FormKeyDown
  112.     end
  113.     object cboTargetMask: TComboBox
  114.       Left = 48
  115.       Top = 8
  116.       Width = 169
  117.       Height = 21
  118.       Font.Charset = DEFAULT_CHARSET
  119.       Font.Color = clWindowText
  120.       Font.Height = -11
  121.       Font.Name = 'Verdana'
  122.       Font.Style = []
  123.       ItemHeight = 13
  124.       Items.Strings = (
  125.         '*.mp?'
  126.         '*.wav'
  127.         '*.*')
  128.       ParentFont = False
  129.       TabOrder = 2
  130.       OnChange = cboTargetMaskChange
  131.     end
  132.   end
  133.   object pnlLeft: TPanel
  134.     Left = 0
  135.     Top = 0
  136.     Width = 225
  137.     Height = 385
  138.     BevelInner = bvLowered
  139.     BevelOuter = bvLowered
  140.     TabOrder = 3
  141.     OnResize = pnlLeftResize
  142.     object lblLeft: TLabel
  143.       Left = 8
  144.       Top = 240
  145.       Width = 209
  146.       Height = 33
  147.       Cursor = crCross
  148.       Hint = 'Try dragging me...'
  149.       Alignment = taCenter
  150.       AutoSize = False
  151.       Caption = 'SOURCE'
  152.       Color = clSilver
  153.       Font.Charset = DEFAULT_CHARSET
  154.       Font.Color = clNavy
  155.       Font.Height = -32
  156.       Font.Name = 'Verdana'
  157.       Font.Style = [fsBold]
  158.       ParentColor = False
  159.       ParentFont = False
  160.       Transparent = True
  161.       OnMouseDown = lblMouseDown
  162.       OnMouseMove = lblLeftMouseMove
  163.       OnMouseUp = lblMouseUp
  164.     end
  165.     object lblSourceMask: TLabel
  166.       Left = 8
  167.       Top = 8
  168.       Width = 34
  169.       Height = 13
  170.       Caption = 'Mask:'
  171.     end
  172.     object flbSource: TFileListBox
  173.       Left = 8
  174.       Top = 40
  175.       Width = 209
  176.       Height = 201
  177.       Hint = 'Select one or more sound files.'
  178.       Font.Charset = DEFAULT_CHARSET
  179.       Font.Color = clWindowText
  180.       Font.Height = -11
  181.       Font.Name = 'Verdana'
  182.       Font.Style = []
  183.       ItemHeight = 13
  184.       MultiSelect = True
  185.       ParentFont = False
  186.       PopupMenu = pmnuWave
  187.       TabOrder = 0
  188.       OnClick = flbSourceClick
  189.       OnDblClick = pmnuWavePlayClick
  190.       OnKeyDown = flbSourceKeyDown
  191.     end
  192.     object dirSource: TDirectoryListBox
  193.       Left = 8
  194.       Top = 280
  195.       Width = 209
  196.       Height = 97
  197.       Hint = 'Select source directory'
  198.       FileList = flbSource
  199.       Font.Charset = DEFAULT_CHARSET
  200.       Font.Color = clWindowText
  201.       Font.Height = -11
  202.       Font.Name = 'Verdana'
  203.       Font.Style = []
  204.       ItemHeight = 16
  205.       ParentFont = False
  206.       TabOrder = 1
  207.       OnKeyDown = FormKeyDown
  208.     end
  209.     object cboSourceMask: TComboBox
  210.       Left = 48
  211.       Top = 8
  212.       Width = 169
  213.       Height = 21
  214.       Font.Charset = DEFAULT_CHARSET
  215.       Font.Color = clWindowText
  216.       Font.Height = -11
  217.       Font.Name = 'Verdana'
  218.       Font.Style = []
  219.       ItemHeight = 13
  220.       Items.Strings = (
  221.         '*.wav'
  222.         '*.*')
  223.       ParentFont = False
  224.       TabOrder = 2
  225.       OnChange = cboSourceMaskChange
  226.     end
  227.   end
  228.   object pnlMiddle: TPanel
  229.     Left = 224
  230.     Top = 0
  231.     Width = 185
  232.     Height = 417
  233.     BevelInner = bvLowered
  234.     BevelOuter = bvLowered
  235.     TabOrder = 4
  236.     object btnEncode: TButton
  237.       Left = 8
  238.       Top = 8
  239.       Width = 169
  240.       Height = 25
  241.       Caption = 'Encode'
  242.       TabOrder = 0
  243.       OnClick = btnEncodeClick
  244.     end
  245.     object radgFrequency: TRadioGroup
  246.       Left = 8
  247.       Top = 40
  248.       Width = 169
  249.       Height = 89
  250.       Hint = 'Samples p/sec. of the source (.wav/.raw)'
  251.       Caption = 'Frequency [Hz]'
  252.       Columns = 2
  253.       Ctl3D = True
  254.       ItemIndex = 0
  255.       Items.Strings = (
  256.         '44100'
  257.         '48000'
  258.         '32000'
  259.         '22050'
  260.         '24000'
  261.         '16000')
  262.       ParentCtl3D = False
  263.       TabOrder = 1
  264.       OnClick = radgLayerClick
  265.     end
  266.     object grpBitrate: TGroupBox
  267.       Left = 8
  268.       Top = 136
  269.       Width = 169
  270.       Height = 49
  271.       Caption = 'Bitrate'
  272.       TabOrder = 2
  273.       object cboBitrate: TComboBox
  274.         Left = 8
  275.         Top = 16
  276.         Width = 153
  277.         Height = 21
  278.         Style = csDropDownList
  279.         Font.Charset = DEFAULT_CHARSET
  280.         Font.Color = clWindowText
  281.         Font.Height = -11
  282.         Font.Name = 'Verdana'
  283.         Font.Style = []
  284.         ItemHeight = 13
  285.         ParentFont = False
  286.         TabOrder = 0
  287.       end
  288.     end
  289.     object radgLayer: TRadioGroup
  290.       Left = 8
  291.       Top = 192
  292.       Width = 169
  293.       Height = 65
  294.       Caption = 'Compression Layer'
  295.       Columns = 2
  296.       ItemIndex = 2
  297.       Items.Strings = (
  298.         'Layer I'
  299.         'Layer II'
  300.         'Layer III')
  301.       TabOrder = 3
  302.       OnClick = radgLayerClick
  303.     end
  304.     object radgChannelMode: TRadioGroup
  305.       Left = 8
  306.       Top = 264
  307.       Width = 169
  308.       Height = 65
  309.       Caption = 'Channel mode'
  310.       Columns = 2
  311.       ItemIndex = 0
  312.       Items.Strings = (
  313.         'Stereo'
  314.         'J-Stereo'
  315.         '2 Chan.'
  316.         'Mono')
  317.       TabOrder = 4
  318.       OnClick = radgLayerClick
  319.     end
  320.     object btnExtraOptions: TButton
  321.       Left = 8
  322.       Top = 384
  323.       Width = 169
  324.       Height = 25
  325.       Caption = 'Extra Options'
  326.       TabOrder = 5
  327.       OnClick = btnExtraOptionsClick
  328.     end
  329.     object radgSourceHW: TRadioGroup
  330.       Left = 8
  331.       Top = 336
  332.       Width = 169
  333.       Height = 41
  334.       Hint = 
  335.         'Here you can choose, if you like to encode from drive-letters or' +
  336.         ' straight from CDROM'
  337.       Caption = 'Source'
  338.       Columns = 2
  339.       ItemIndex = 0
  340.       Items.Strings = (
  341.         'Drive'
  342.         'CD')
  343.       TabOrder = 6
  344.       OnClick = radgSourceHWClick
  345.     end
  346.   end
  347.   object mciOnForm: TMediaPlayer
  348.     Left = -228
  349.     Top = 32
  350.     Width = 253
  351.     Height = 30
  352.     Visible = False
  353.     TabOrder = 5
  354.   end
  355.   object drvSource: TDriveComboBox
  356.     Left = 8
  357.     Top = 392
  358.     Width = 209
  359.     Height = 19
  360.     Font.Charset = DEFAULT_CHARSET
  361.     Font.Color = clWindowText
  362.     Font.Height = -11
  363.     Font.Name = 'Verdana'
  364.     Font.Style = []
  365.     ParentFont = False
  366.     TabOrder = 6
  367.     TextCase = tcUpperCase
  368.     OnChange = drvSourceChange
  369.     OnKeyDown = FormKeyDown
  370.   end
  371.   object drvTarget: TDriveComboBox
  372.     Left = 416
  373.     Top = 392
  374.     Width = 209
  375.     Height = 19
  376.     DirList = dirTarget
  377.     Font.Charset = DEFAULT_CHARSET
  378.     Font.Color = clWindowText
  379.     Font.Height = -11
  380.     Font.Name = 'Verdana'
  381.     Font.Style = []
  382.     ParentFont = False
  383.     TabOrder = 7
  384.     TextCase = tcUpperCase
  385.     OnKeyDown = FormKeyDown
  386.   end
  387.   object pnlCDRom: TPanel
  388.     Left = 0
  389.     Top = 0
  390.     Width = 225
  391.     Height = 385
  392.     BevelInner = bvLowered
  393.     Caption = 'pnlCDRom'
  394.     TabOrder = 8
  395.     Visible = False
  396.     object lvToc: TListView
  397.       Left = 2
  398.       Top = 2
  399.       Width = 221
  400.       Height = 381
  401.       Align = alClient
  402.       Columns = <
  403.         item
  404.           Caption = 'Track'
  405.           Width = 44
  406.           WidthType = (
  407.             -2)
  408.         end
  409.         item
  410.           Caption = 'start'
  411.           Width = 38
  412.           WidthType = (
  413.             -2)
  414.         end
  415.         item
  416.           Caption = 'length'
  417.           Width = 135
  418.           WidthType = (
  419.             -2)
  420.         end>
  421.       ReadOnly = True
  422.       HideSelection = False
  423.       MultiSelect = True
  424.       TabOrder = 0
  425.       ViewStyle = vsReport
  426.       OnKeyDown = lvTocKeyDown
  427.     end
  428.   end
  429.   object pmnuMain: TPopupMenu
  430.     Left = 65534
  431.     Top = 98
  432.     object pmnuAbout: TMenuItem
  433.       Caption = '&About'
  434.       ShortCut = 16449
  435.       OnClick = pmnuAboutClick
  436.     end
  437.     object pmnuDebug: TMenuItem
  438.       Caption = '&Debug window'
  439.       ShortCut = 16452
  440.       OnClick = pmnuDebugClick
  441.     end
  442.   end
  443.   object pmnuWave: TPopupMenu
  444.     Left = 65534
  445.     Top = 65
  446.     object pmnuWavePlay: TMenuItem
  447.       Caption = '&Play'
  448.       Default = True
  449.       ShortCut = 16464
  450.       OnClick = pmnuWavePlayClick
  451.     end
  452.     object N1: TMenuItem
  453.       Caption = '-'
  454.       ShortCut = 0
  455.     end
  456.     object pmnuWaveAutoPlay: TMenuItem
  457.       Caption = '&Auto Play'
  458.       ShortCut = 0
  459.       OnClick = pmnuWaveAutoPlayClick
  460.     end
  461.   end
  462. end
  463.